5 REM COPYRIGHT 1988  COMPUTE! PUBLICATIONS, INC.  ALL RIGHTS RESERVED.
10 PRINT"[147]COPYRIGHT 1988"
12 PRINT"COMPUTE! PUBLICATIONS, INC."
14 PRINT"ALL RIGHTS RESERVED."
16 FOR X=1 TO 2000:NEXT:PRINT"[147]"
20 PRINT "INSERT DISK AND PRESS RETURN":WAIT 197,1,1:WAIT 197,1
30 D=8:GOSUB 1000:PRINT:PRINT:PRINT "ANOTHER DISK (Y/N)? ";:POKE 198,0
40 GET K$:ON -(K$<>"Y"ANDK$<>"N") GOTO 40:PRINT K$:ON -(K$="Y") GOTO 20:END
1000 SYS 57812"$",D:POKE 43,1:POKE 44,192:POKE 768,174:POKE 769,167:SYS 47003,1
1010 POKE 782,192:SYS 65493:SYS 42291:LIST:POKE 44,8:POKE 768,139:POKE 769,227
1020 RETURN